home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gf.d64 / caves.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  8KB  |  224 lines
  1. 10 REM   'CAVES.64'
  2. 20 POKE 53281,0:POKE 53280,0:PRINTCHR$(5)
  3. 30 PRINT"[147]   ADVENTURE FOR THE C64 - THE CAVES
  4. 40 [153]"   *********************************
  5. 50 PRINT"  THIS IS ONE OF A SERIES OF PROGRAMMES
  6. 60 [153]"WHICH HAVE BEEN WRITTEN BY:
  7. 70 PRINT"       MICHAEL BONNYCASTLE
  8. 80 [153]"        81 WYCHWOOD PARK,
  9. 90 PRINT"        TORONTO, ONTARIO,
  10. 100 [153]"        CANADA   M6G 2V5
  11. 110 PRINT"         (416) 654-2381
  12. 120 [153]"   I HOPE YOU ENJOY IT.  PLEASE FEEL
  13. 130 PRINT"FREE TO COPY IT AND GIVE IT TO FRIENDS
  14. 140 [153]"SO THEY MAY SHARE THE FUN.
  15. 150 PRINT"   I WOULD APPRECIATE YOUR DROPPING ME
  16. 160 [153]"A POST CARD IF YOU GET A COPY SO I WILL
  17. 170 PRINT"KNOW HOW FAR IT HAS TRAVELLED.
  18. 180 [141] 290:[141] 260
  19. 190 [153]"LOAD   ORIGINALLY THIS WAS WRITTEN FOR THE"
  20. 200 [153]"8K PET, AND SUBSEQUENTLY IT HAS BEEN"
  21. 210 [153]"PUT ONTO THE 64.  IT PUTS A DESTINATION"
  22. 220 [153]"IN THE 4K FREE MEMORY AT 49152 AND THEN"
  23. 230 [153]"REFERS TO IT LATER. "
  24. 240 [141] 260
  25. 250 [137] 390
  26. 260 [153]"(PRESS 'Z' TO CONTINUE)";
  27. 270 [161] A$:[139] A$[179][177]"Z"[167]270
  28. 280 [142]
  29. 290 [129]N[178]1[164]126:[135]A$:A[178][197](A$)
  30. 300 [139]A$[178]"F"[167] A[178]99
  31. 310 [151](49152[170]N),A
  32. 320 [130]N
  33. 330 [142]
  34. 340 [131] F,0,2,F,0,2,4,1,5,3,F,18,2,F,F,F,F,F,F,F,8,2,F,F,8,2,6,7,F,F
  35. 350 [131] 11,5,9,19,F,F,5,F,19,F,F,F,F,4,F,5,F,F,20,F,10,6,F,F,F,9,F,F,F,F
  36. 360 [131] F,F,F,F,6,12,F,F,11,13,F,F,12,F,F,14,F,F,13,15,F,F,F,F
  37. 370 [131] 16,21,14,F,17,F,F,F,F,15,F,F,F,F,F,F,F,15,F,F,F,F,2,21,6,7,F,F,F,F
  38. 380 [131]F,F,F,9,F,F,F,F,15,F,F,F
  39. 390 [143] -BY M.K.BONNYCASTLE
  40. 400 [134]T%(5,2),R%(6),T$(6),W$(3),S%(10,2)
  41. 410 K$[178]"NEWSUD":X[178].5:[137]1700
  42. 420 [153]"DIRECTION";:[133]"*CMDCMDCMD";S$
  43. 430 [139] S$[178]"*"[167]420
  44. 440 [129]I[178]1[164]6:[139]S$[178][202](K$,I,1)[167]470
  45. 450 [130]I
  46. 460 [153]"USE ONLY N,E,W,S,U OR D":[137]420
  47. 470 A[178][194](49146[170]P[172]6[170]I):[139]A[178]99[167]1060
  48. 480 M4[178]M4[170]1:[139]A[178]0[167]2090
  49. 490 P[178]A:[153]"  ";
  50. 500 [145] P [137]550,580,610,620,640,680,780,810,840,870,910,930,980,990,1010,1070
  51. 510 A[178]P[171]16:[145] A [137] 1080,1110,1160,1170,1180
  52. 520 M2[178]0
  53. 530 [141]1200:[141]1360:[139]M2[178]1[167]490
  54. 540 [137]420
  55. 550 [153]"YOU ARE AT THE ENTRANCE TO THE
  56. 560 PRINT"CAVES.  ON THE WALL IS SCRATCHED THE
  57. 570 [153]"WORD-"[163]13)"BEWARE":[137]520
  58. 580 [153]"THIS IS A CAVERNOUS ROOM. A STEEP
  59. 590 PRINT"STAIRWAY DECENDS INTO THE GLOOM.
  60. 600 [153]"PASSAGES RUN OFF IN EACH DIRECTION.":[137]520
  61. 610 [153]"A ROCK SLIDE BLOCKS YOUR WAY.":[137]520
  62. 620 [153]"YOU ARE IN A LARGE SQUARE ROOM WITH
  63. 630 PRINT"DOORS IN THE WEST AND SOUTH WALLS.":GOTO520
  64. 640 PRINT"YOU ARE IN THE EAST END OF A LONG
  65. 650 [153]"HALL WITH CARVED FIGURES ON THE WALLS
  66. 660 PRINT"AND CIELING. ORNATE DOORS OPEN ON THE
  67. 670 [153]"THE N. E. AND S. WALLS.":[137]520
  68. 680 [153]"YOU ARE IN THE WEST END OF THE
  69. 690 PRINT"CARVED HALL.  DOORS ARE CONCEALED
  70. 700 [153]"AMONG THE CARVINGS ON EACH WALL.":[137]520
  71. 710 [139]S9[178]0[167]760
  72. 720 S9[178]0:[153]" ON THE LEDGE IS A WRINKLED PARCHMENT
  73. 730 PRINT"SCROLL. AS YOU OPEN IT GENTLY, IT
  74. 740 [153]"CRUMBLES IN YOUR HANDS AND ALL YOU GET
  75. 750 PRINT"IS THE MESSAGE ";W$(2)
  76. 760 PRINT"  THE DUSTY SCROLL LIES CRUMBLED
  77. 770 [153]"AT YOUR FEET.":[137]530
  78. 780 [153]"THIS IS A SMALL, FEATURLESS, DIM ROOM.
  79. 790 PRINT"  FROM OUT OF THE GLOOM A WAVERING
  80. 800 [153]"VOICE CALLS  "W$(3):[137]520
  81. 810 [153]"NOW YOU'RE IN A MUSTY CAVE.":[137]520
  82. 820 [153]"REMEMBER WELL THIS FADING SPELL..."
  83. 830 [153][163]9);Z$:[141]2190:[153]"ON"[163]9)"        ":M2[178]0:[137]530
  84. 840 [153]"YOU'RE IN A LONG DARK PASSAGE THAT
  85. 850 PRINT"NOW RUNS NORTH AND SOUTH. A PASSAGE
  86. 860 [153]"RUNS OFF TO THE WEST.":[137]520
  87. 870 [153]"THE PASSAGE OPENS INTO A BEAUTIFUL
  88. 880 PRINT"SILVERY CAVE FULL OF STALAGMITES AND
  89. 890 [153]"STALAGTITES. ICE CRYSTALS SPARKLE FROM
  90. 900 PRINT"FROM YOUR LIGHT.":GOTO520
  91. 910 PRINT"NOW YOU'RE IN A LONG WINDING TUNNEL
  92. 920 [153]"WHICH IS STEEPLY SLOPED":[137]520
  93. 930 [153]"YOU ARE AT THE NORTH END OF A LONG
  94. 940 PRINT"ARCHED HALL THAT FADES DIMLY AWAY TO
  95. 950 [153]"THE SOUTH. ON THE WEST WALL, A CRACKED
  96. 960 PRINT"PANEL REVEALS A TUNNEL WHICH WINDS OFF
  97. 970 [153]"INTO THE GLOOM.":[137]520
  98. 980 [153]"YOU ARE IN THE CENTER OF THE ARCHED":[153]"HALL.":[137]520
  99. 990 [153]"THIS IS THE SOUTH END OF THE ARCHED
  100. 1000 PRINT"HALL. ON A WALL THERE IS A LEDGE.":GOTO710
  101. 1010 PRINTTAB(8);"**THE DRAGON ROOM**":PRINT"BRILLIANT MURALS OF DRAGONS COVER
  102. 1020 [153]"THE WALLS. A DOOR IN THE WEST WALL
  103. 1030 PRINT"LEADS TO THE ARCHED HALL AND PASSAGES
  104. 1040 [153]"RUN NORTH AND EAST. A WINDING STAIR-
  105. 1050 PRINT"CASE LEADS UPWARD.":GOTO520
  106. 1060 PRINT"  YOU CAN'T GO THAT WAY.":GOTO420
  107. 1070 PRINT"YOU HAVE ENTERED A SMALL ROUND ROOM":PRINT"FROM THE DRAGON ROOM.":GOTO520
  108. 1080 PRINT"YOU ARE IN A BEEHIVE SHAPED ROOM.
  109. 1090 [153]"RUNES ARE CARVED AROUND THE WALLS.
  110. 1100 PRINT"AMONG THEM YOU SEE -":GOTO820
  111. 1110 PRINT"THIS IS A SMALL ROOM WITH NO DOORS.
  112. 1120 [153]"A STEEP STONE STAIRCASE ASCENDS TO THE
  113. 1130 PRINT"CIELING. IN ONE CORNER IS A ROUND,
  114. 1140 [153]"SMOOTH HOLE ABOUT 3 FEET ACROSS WHICH
  115. 1150 PRINT"DROPS TO A PASSAGE 10 FEET BELOW.":GOTO520
  116. 1160 PRINT"YOU ARE IN AN L SHAPED ROOM WITH":PRINT"DOORS IN EACH END.":GOTO520
  117. 1170 PRINT"DEAD END":GOTO520
  118. 1180 PRINT"YOU ARE AT THE BOTTOM OF THE HOLE AND
  119. 1190 [153]"CANNOT CLIMB UP. A PASSAGE RUNS OFF":[153]"TO THE WEST.":[137]520
  120. 1200 [129]I[178]1[164]N2:[139]P[178]T%(I,1)[167]1230
  121. 1210 [130]I
  122. 1220 [142]
  123. 1230 [139]T%(I,2)[178]0[167]1220
  124. 1240 T6[178]T6[170]T%(I,2):T%(I,2)[178]0:[153]" ";
  125. 1250 [145] I [137] 1310,1260,1320,1300,1340
  126. 1260 [153]"IN THE CORNER YOU SEE A SMALL CHEST"
  127. 1270 [153]"OF GOLD AND SILVER COINS.
  128. 1280 PRINT"YOUR TREASURE IS NOW WORTH ";T6
  129. 1290 PRINT"GOLD PIECES.":RETURN
  130. 1300 PRINT"ON A TABLE ARE SEVERAL DIAMONDS. YOU":PRINT"COLLECT THESE.":GOTO 1280
  131. 1310 PRINT"YOU PICK UP SEVERAL COINS ON THE FLOOR":GOTO 1280
  132. 1320 PRINT"A SMALL CHEST OF GOLD DUBLOONS IS ON
  133. 1330 [153]"THE FLOOR.":[137] 1280
  134. 1340 [153]"  ** YOU FOUND THE MAIN TREASURE **":[153]"NOW TRY TO GET OUT..
  135. 1350 GOTO1280
  136. 1360 FORI=1TO10:IFS%(I,1)=PTHEN1380
  137. 1370 NEXTI:RETURN
  138. 1380 IF RND(0)>(S%(I,2)+T6/60)/100 THEN 1220
  139. 1390 J=1:M5=M5+1:IF T6>20 THEN J=2
  140. 1400 IFT6>80THENJ=3
  141. 1410 IFT6>399THENJ=INT(2*RND(0)+4)
  142. 1420 IFT6>2000THENJ=INT(3*RND(0)+4)
  143. 1430 T$=T$(J)
  144. 1440 PRINT"  A "T$" HAS JUST APPEARED.
  145. 1450 [153]"DO YOU WANT TO FIGHT OR BARGIN (F OR B)"
  146. 1460 [133]A$:[139]A$[179][177]"F"[167]1600
  147. 1470 [139]J[179]4[167]1580
  148. 1480 [139]J[177]2[167][141]1900
  149. 1490 [145]M2[137]1560,1560,1500
  150. 1500 D3[178][181]([187](0)[172]R%(J)[173]2)[170]R%(J)[173]2
  151. 1510 [139]D3[177][178]H6[167]1570
  152. 1520 H6[178]H6[171]D3
  153. 1530 [153]"  YOU HAVE HAD A TERRIFIC BATTLE WITH
  154. 1540 PRINT"THE "T$" AND HAVE KILLED IT.
  155. 1550 [153]"  YOU WERE WOUNDED, HOWEVER, AND":[153]"YOUR VITALITY STANDS AT ";H6
  156. 1560 [142]
  157. 1570 [153]" YOU HAVE BEEN KILLED.":H6[178]0:T6[178]0:[141]2190:[137]2090
  158. 1580 M2[178]3:[139] [187](0)[179].5 [167]1480
  159. 1590 [153]" THE "T$" RUNS AWAY.":[142]
  160. 1600 D3[178][181](T6[172](.2[170][187](0)[172].3)[173](7[171]J)):A[178]0
  161. 1610 [153]"THE "T$" WANTS PART OF YOUR TREASURE."
  162. 1620 [153]"YOUR OFFER? (YOU HAVE"T6")";:[133]I:[139]I[177][178]D3[167]1660
  163. 1630 [139] A[177]5[167]1680
  164. 1640 [153]"'I WANT"[181](D3[170]((D3[171]I)[172]1.6[172][187](0)))"' GROWLS THE "T$:A[178]A[170]1:[137]1620
  165. 1650 [153]"YOU'VE ALMOST GOT A DEAL"
  166. 1660 [153]"THE ";T$(J);" ACCEPTS AND RUNS":T6[178]T6[171]I:[153]"YOU NOW HAVE ";T6
  167. 1670 [142]
  168. 1680 [153]"YOU HAVE MADE THE "T$(J)" VERY
  169. 1690 PRINT"ANGRY WITH YOUR NIGGLING OFFERS.":GOTO1470
  170. 1700 N1=21:N2=5:N3=10:N4=6
  171. 1710 PRINT"[147]**WELCOME TO THE CAVES**
  172. 1720 [153]"  IN THIS ADVENTURE YOU ARE AT THE
  173. 1730 PRINT"EASTERN ENTRANCE OF A SET OF CAVES.
  174. 1740 [153]"YOU'VE HEARD THAT FABULOUS TREASURE
  175. 1750 PRINT"LIES WITHIN, BUT THEN THERE ARE ALSO
  176. 1760 [153]"MONSTORS WITH WHOM YOU WILL HAVE TO
  177. 1770 PRINT"DEAL.  YOU MAY FIGHT THEM, BUT DON'T
  178. 1780 [153]"LET YOUR VITALITY DROP BELOW 0.  YOU
  179. 1790 PRINT"MAY BARGIN AWAY PART OF YOUR TREASURE
  180. 1800 [153]"TO AVOID A FIGHT.  ALSO LOOK FOR MAGIC
  181. 1810 PRINT"WORDS TO HELP IN YOUR ADVENTURE.":PRINT"  -GOOD LUCK!!
  182. 1830 H6[178]20:S9[178]1:Z$[178]"->...*!!":P[178]1:T6[178]0:M4[178]0:M5[178]0
  183. 1840 [129]I[178]1[164]N2:[135]T%(I,2):[130]
  184. 1850 [135] W$(1),W$(2),W$(3)
  185. 1860 [129] R[178]1[164]N3:[129]C[178]1[164]2:[135]S%(R,C):[130]:[130]
  186. 1870 [129]N[178]1[164]N4:[135]R%(N),T$(N):[130]
  187. 1880 [129]N[178]1[164]N2:[135]T%(N,1):[130]
  188. 1890 T8[178]TI:A[178]1:[137]490
  189. 1900 [153]"  SAY, DO YOU KNOW ANY MAGIC WORDS?"
  190. 1910 [133]A$:A[178]0
  191. 1920 [139][200](A$,1)[178]"N"[167]1950
  192. 1930 [139][200](A$,1)[178]"Y"[167] 1970
  193. 1940 [137]1980
  194. 1950 [153]" TOO BAD, ONE WOULD HAVE HELPED.
  195. 1960 M2=3:RETURN
  196. 1970 PRINT"WELL, WHAT IS IT";:INPUT A$
  197. 1980 IFA$=Z$THEN2080
  198. 1990 FORI=1TO3:IFA$=W$(I)THEN2030
  199. 2000 NEXTI:PRINT" SORRY, IT DOESN'T WORK.
  200. 2010 A[178]A[170]1:[139]A[177]4[167]1960
  201. 2020 [153]"TRY ANOTHER ";:[137] 1970
  202. 2030 W$(I)[178]Z$:[153]"VERY GOOD, THAT HELPS":[141]2190
  203. 2040 M6[178]M6[170]1:[139][187](0)[179].5[167]2070
  204. 2050 [153]" THE "T$" WAS TRANSFORMED INTO A":J[178]J[171]2:T$[178]T$(J):[153]T$
  205. 2060 M2[178]3:[142]
  206. 2070 [153]" THE "T$" HAS JUST DISAPEARED":M2[178]2:[142]
  207. 2080 M2[178]1:A[178]17:[142]
  208. 2090 [153]"RESULTS:
  209. 2100 T8=INT((TI-T8)/60+.5):I=INT(T8/60):J=T8-(60*I)
  210. 2110 PRINT"TREASURE ";T6:PRINT"# MOVES  ";M4
  211. 2120 PRINT"MONSTORS ";M5:PRINT"VITALITY ";H6
  212. 2130 PRINT"TIME ";I;" MIN ";J;" SEC"
  213. 2140 J=.5*T6/3000+.3*H6/20+2/M4+10/T8
  214. 2150 PRINT"NET SCORE ";INT(100*J)
  215. 2160 PRINT"TRY AGAIN";:INPUT A$
  216. 2170 IFLEFT$(A$,1)="Y"THEN1820
  217. 2180 END
  218. 2190 FORI=1TO2000:NEXT:RETURN
  219. 2200 DATA 2,20,78,400,2500
  220. 2210 DATA BEWARE,KAZAM,WZANG
  221. 2220 DATA 3,2,5,4,8,5,18,8,12,10,6,11,19,15,7,25,13,30,15,40
  222. 2230 DATA 2,SMALL DWARF,4,LARGE DWARF,6,GOBLIN,10,VAMPIRE,16,SMALL DRAGON
  223. 2240 DATA 20,LARGE DRAGON,5,8,13,10,16
  224.